Sub 차트삭제()

    ActiveSheet.ChartObjects("차트 1").Activate
    ActiveChart.Parent.Delete

End Sub
